home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 54 / 64er_Magazin_Sonderheft_54_19xx_Markt__Technik_de_Side_B.d64 / auf der suche (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  24.0 KB  |  661 lines
  1. 0 ifpeek(53247)<>123thenpoke53247,123:load"auf der.chars",8,8
  2. 1 datageh,nim,in,hi,zei,bil,neh,bes,end,kau,scha,sto,spe,war,geb,fli,dru,tes,iss
  3. 2 dataess,oef,gib,?,rud,schw,rei,zie,spre
  4. 9 data@
  5. 10 datatue,dos,buechs,scho,schl,bah,sei,kar,bergw,gel,zue
  6. 11 databer,bod,hue,bro,kis,rud,tis,kno,bat,geb,hau,del,fis,heb,nie,dyn,tre,bet
  7. 19 data@
  8. 20 data"eine [196]ose","[214]ollmilchschokolade","[198]ahrkarten","[199]eld","viele [218]uendhoelzer
  9. 21 [131]"einen grossen (NULL)chluessel","ein (NULL)tueck (NULL)eissbrot","ein (NULL)uder
  10. 22 data"eine [194]atterie","einen [198]isch","[196]ynamit
  11. 29 [131]@
  12. 40 [141]500
  13. 49 [141]8000
  14. 50 ti$[178]"000000":[137]100
  15. 60 fa$[178][196](fa):fa$[178][201](fa$,[195](fa$)[171]1)
  16. 61 [139][195](fa$)[177][179]4[167]fa$[178]"0"[170]fa$:[137]61
  17. 62 [129]i[178]55296[164]55303:[151]i,1:[130]
  18. 63 [151]50176,90:[151]50177,21:[151]50178,7:[151]50179,58
  19. 64 [129]i[178]1[164]4:[151]50179[170]i,[198]([202](fa$,i,1)):[130]:[142]
  20. 100 zl[178]0:re[178]0:[141]800:fa[178]fa[170]1:[139]w[167]fa[178]fa[171]1:[137]100
  21. 101 [141]60:[139]h[178]9[167][133]"(NULL)irklich";y$:[139]y$[178]"j"[176]y$[178]"y"[167][153]"load":[137]9000
  22. 102 [139]h[178]3[175]r[179][177]20[167][141]2000:[137]100
  23. 103 [139]h[178]5[175]g[178]0[167][141]8000:[137]100
  24. 105 [139]h[178]4[175]r[177][179]11[167][141]7000:[137]100
  25. 106 [139]h[178]13[167][153]"peekright$(NULL)(NULL)val str$right$val(NULL)val(NULL) peekvalascvalleft$(NULL) (NULL)right$lenleft$(NULL) atn(NULL)(NULL)val(NULL)str$val(NULL)!!":[137]100
  26. 107 [139]h[178]9[167]100
  27. 109 [137]112
  28. 110 [132]1,a,b$:[139]a[178]0[175](st[178]64[176]st[178]0)[167][153]"stopstr$isk ok !":[142]
  29. 111 [153]"str$isk-ascehler ! "b$" nr."a:[153]"(NULL)tatus: "st:[128]
  30. 112 [139]h[178]18[167][141]200:[137]100
  31. 113 [139]h[178]15[175]r[177][179]6[175]r[177][179]10[175]r[179][177]14[175]r[179][177]18[167][153]nh$:[137]100
  32. 114 [139]h[178]25[167]9042
  33. 190 [145]r[141]1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1460,1500
  34. 191 [139]r[179]13[176]re[178]1[167]100
  35. 192 rt[178]r[171]12:[145]rt[141]1550,1560,1570,1580,1590,1600,1650,1670,1680,1700,1710
  36. 193 [139]r[179]24[176]re[178]1[167]100
  37. 194 rt[178]r[171]23:[145]rt[141]1720,1730,1740,1750
  38. 199 [137]100
  39. 200 x1[178]r:x2[178]gh:[129]r[178]1[164]27:gh[178]0:[141]8000:[141]7000:[141]6100:[130]:gh[178]x2:r[178]x1
  40. 201 [141]8000:[142]
  41. 499 [128]
  42. 500 [141]951:s[178]54272:[141]602:[151]650,128:[141]600
  43. 502 [153]"loadstopreturnpeekitte warten !
  44. 503 in=0:bz=0:sa=0:r=1:rc$="nss90":cr$=chr$(13):fa=r:zz=39:open1,8,15,"i"
  45. 504 readq$:ifq$<>"@"thenbz=bz+1:goto504
  46. 505 readq$:ifq$<>"@"thensa=sa+1:goto505
  47. 506 readq$:ifq$<>"@"thenin=in+1:goto506
  48. 510 dimb$(bz),s$(sa),i$(in),a(in),a$(6),k$(zz)
  49. 512 restore:poke53270,200:poke53265,27
  50. 514 fori=1tobz:readb$(i):next:readq$
  51. 515 fori=1tosa:reads$(i):next:readq$
  52. 516 fori=1toin:readi$(i):next:readq$
  53. 517 kw$="[196]ahin f[189]hrt kein [215]eg !
  54. 518 sh$[178]"str$as haben (NULL)ie schon !
  55. 519 nn$="[196]as kann man nicht nehmen !
  56. 520 a(5)[178]1:a(2)[178]1:a(7)[178]1:a(9)[178]1:[139][194](2)[178]0[167][141]10000:[151]2,1
  57. 521 kq$[178]"(NULL)ie haben alle left$ilfen verbraucht !
  58. 522 ok$="[153][207][203].
  59. 523 du$[178]"(NULL)ie sind auf sich selbst angewiesen !
  60. 524 hj$="...hat jetzt keinen [211]inn !
  61. 525 nh$[178]"(NULL)iemand will das haben !
  62. 526 sn$="[196]as haben [211]ie noch nicht !
  63. 530 [129]i[178]1[164]zz:[135]k$(i):[130]
  64. 599 [142]
  65. 600 [151]s[170]4,33:[151]s[170]6,240
  66. 601 [129]a[178]0[164]2:[129]x[178]0[164]255[169]25:[151]s[170]1,x:[130]x,a:[151]s[170]4,32:[142]
  67. 602 [129]i[178]0[164]24:[151]s[170]i,0:[130]:[151]s[170]24,15:[151]s[170]11,128:[142]
  68. 603 [151]s[170]4,129:[151]s[170]6,240
  69. 604 [129]a[178]0[164]5:[129]x[178]0[164]255[169]25:[151]s[170]1,x:[130]x,a:[151]s[170]4,128:[142]
  70. 605 [151]s[170]11,129:[151]s[170]8,1:[151]s[170]13,240:[129]a[178]0[164]100:[130]:[142]
  71. 606 [151]s[170]11,128:[142]
  72. 607 [141]605:[141]606:[141]605:[142]
  73. 700 d$[178]"":e$[178]d$:fb[178]0:w[178]0:g[178]0:h[178]g:jj[178]h:lk[178]h:[129]i[178]1[164]bz
  74. 701 [139][200](a$,[195](b$(i)))[178]b$(i)[167]h[178]i:[137]704
  75. 702 [130]:[141]720:[139]jj[167][142]
  76. 703 [137]900
  77. 704 fl[178]0:[139][201](a$,1)[179][177]" "[175]a$[179][177]""[167]fl[178]1
  78. 705 [139]fl[167]c$[178][201](a$,1):d$[178]d$[170]c$:a$[178][200](a$,[195](a$)[171]1):[137]704
  79. 706 [129]i[178][195](d$)[164]1[169][171]1:e$[178]e$[170][202](d$,i,1):[130]
  80. 707 [129]i[178]1[164]sa:[139][200](e$,[195](s$(i)))[178]s$(i)[167]g[178]i:[137]709
  81. 708 [130]:lk[178]1
  82. 709 [141]730
  83. 713 [139]lk[178]0[167][142]
  84. 714 [139][168](e$[178]"das"[176]e$[178]"es"[176]e$[178]"sie"[176]e$[178]"ihn"[176]e$[178]"die"[176]e$[178]"den")[167][142]
  85. 715 lk[178]0:g[178]br:[137]709
  86. 720 s$[178][200](a$,1):[139]s$[178]"n"[167]jj[178]1
  87. 721 [139]s$[178]"s"[167]jj[178]2
  88. 722 [139]s$[178]"w"[167]jj[178]3
  89. 723 [139]s$[178]"o"[176]s$[178]"e"[167]jj[178]4
  90. 724 [142]
  91. 730 [139]g[178]7[167]g[178]6
  92. 731 [139]h[178]7[167]h[178]2
  93. 732 [139]h[178]6[176]h[178]11[167]h[178]5
  94. 733 [139]g[177][179]0[167]br[178]g
  95. 734 [139]h[178]20[167]h[178]19
  96. 735 [139]h[178]22[167]h[178]15
  97. 736 [139]g[178]22[167]g[178]14
  98. 737 [139]g[178]3[167]g[178]2
  99. 738 [139]h[178]23[167]h[178]4
  100. 739 [142]
  101. 800 [141]600:[139]au[178]1[175]nl[179]zz[167]nl[178]nl[170]1:a$[178]k$(nl):[141]9100
  102. 801 [160]5:[159]5,0:[153]"stoppeekefehl -> -> ";:[132]5,a$:[153]
  103. 802 [139]a$[178]"ton an"[167]w[178]1:[151]s[170]24,15:[142]
  104. 803 [139]a$[178]"ton aus"[167]w[178]1:[151]s[170]24,0:[142]
  105. 804 [139][200](a$,3)[178]"sav"[175]r[179][177]20[167]w[178]1:[141]850:[142]
  106. 805 [139][200](a$,3)[178]"loa"[167]w[178]1:[141]860:[141]8000:[142]
  107. 806 [139]fa[177]1[175]a$[178]"autoplay"[167][153]"defatnutoplay darf nur als erster peekefehl":zl[178]1
  108. 807 [139]zl[167]w[178]1:[153]"im atndventure eingegeben werden!":zl[178].:[142]
  109. 808 [139]a$[179][177]"autoplay"[167]830
  110. 809 w[178]1:[153]"peekitte geben (NULL)ie jetzt das lenodewort ein,
  111. 810 print"das [211]ie in der [193]nleitung finden. [197]s
  112. 811 [153]"mucos eingegeben werden, damit (NULL)ie nicht
  113. 812 print"aus [214]ersehen das [193]utoplay starten und
  114. 813 [153]"sich damit den (NULL)pielspacos verderben!
  115. 814 input"[144][195]odewort ";cw$:ifcw$<>rc$thenprint"[198][193][204][211][195][200][197][210] [195][207][196][197]":return
  116. 815 au=1:print"[194]itte geben [211]ie den [194]efehl 'off' ein, um
  117. 816 [153]"ondas atnutoplay wieder abzuschalten!":[142]
  118. 830 [139]a$[179][177]"off"[167]840
  119. 832 w[178]1:[139]au[178].[167][153]"(NULL)atn(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)val mid$val(NULL)(NULL)(NULL) str$atn(NULL) ???":[142]
  120. 834 au[178]0:[153]"atnutoplay abgeschaltet.":[142]
  121. 840 [141]700:[142]
  122. 850 [159]2,8,2,"@0:spielstand,s,w":[141]110:[141]870
  123. 851 [152]2,r","gh","qo","fa","ti$","na$","da$","wf","tu
  124. 853 [129]i[178]1[164]in:[152]2,a(i):[130]:[160]2:[141]110:[142]
  125. 860 [159]2,8,4,"0:spielstand,s,r":[141]110
  126. 861 [132]2,r,gh,qo,fa,ti$,na$,da$,wf,tu:[141]110
  127. 863 [129]i[178]1[164]in:[132]2,a(i):[130]:[160]2:[141]110:[141]880:[142]
  128. 870 [153]"load(NULL)ave - (NULL)odus ...
  129. 871 input"[201]hr [206]ame ?";na$
  130. 872 input"[200]eutiges [196]atum";da$
  131. 873 return
  132. 880 print"[147][204]oad - [205]odus ...
  133. 881 [153]"(NULL)ie spielen jetzt das peekild von ";:[139][195](na$)[179]9[167][153]na$:[137]883
  134. 882 [153]:[153]na$" ";
  135. 883 [153]"gemacht am "da$:[141]6100:[142]
  136. 900 [141]603:w[178]1:[139][195](a$)[178]1[167][153]"right$st was ??":[142]
  137. 901 [153]"str$as kenne ich nicht...":[142]
  138. 950 [151]53280,0:[151]53281,0:[151]648,4:[151]56576,3:[151]53272,21:[142]
  139. 951 [151]53280,12:[151]53281,12:[151]648,196:[151]56576,0:[151]53272,24:[142]
  140. 1000 [139]h[178]2[175]g[178]10[175](a(3)[177]0[176]a(4)[177]0)[167][153]sh$:[142]
  141. 1002 [139]h[178]5[175]g[178]13[175]a(4)[178]0[175]a(3)[178]0[167][153]"str$a liegt chr$eld!":[142]
  142. 1004 [139]h[178]2[175]g[178]10[175]a(4)[178]0[175]a(3)[178]0[167][153]ok$:a(4)[178]1:[142]
  143. 1006 [139]jj[178]4[167]r[178]2:[141]8000:[142]
  144. 1007 [139]jj[167][153]kw$:[142]
  145. 1008 [139]h[178]2[167][153]nn$:[142]
  146. 1010 [139]a(4)[178]1[175]h[178]5[175]g[178]10[167][153]"vals sind 2 (NULL)ark! str$as reicht fexpr eine":zl[178]1
  147. 1011 [139]zl[167][153]"(NULL)eilbahnkarte !":[142]
  148. 1012 [139]h[178]5[175]g[178]10[167][153]sn$:[142]
  149. 1013 [139]h[178]5[175]g[178]12[167][153]"(NULL)ie stehen vor einem hohen peekerg in den":zl[178]1
  150. 1014 [139]zl[167][153]"atnlpen !":[142]
  151. 1049 [153]hj$:[142]
  152. 1050 [139]jj[178]3[167]r[178]1:[141]8000:[142]
  153. 1051 [139]a(3)[175](jj[178]2[176](h[178]1[175]g[178]6))[167]r[178]3:[141]8000:[141]607:[142]
  154. 1052 [139]h[178]10[175]g[178]8[175]a(4)[177]0[167][153]ok$" str$as chr$eld sind (NULL)ie los !":zl[178]1
  155. 1053 [139]zl[167]a(4)[178]0:a(3)[178]1:[142]
  156. 1054 [139]h[178]10[175]g[178]8[167][153]"(NULL)arum geht das jetzt wohl nicht ??":[142]
  157. 1055 [139]jj[178]2[176](h[178]1[175]g[178]6)[167][153]"(NULL)ie haben keine (NULL)arte !":[142]
  158. 1056 [139]jj[167][153]kw$:[142]
  159. 1100 [139]h[178]14[167]r[178]4:[141]8000:[141]606:[142]
  160. 1149 [153]hj$:[142]
  161. 1150 [139]jj[178]3[167]9010
  162. 1151 [139]jj[178]2[167]r[178]5:[141]8000:[142]
  163. 1152 [139]jj[178]4[167]r[178]6:[141]8000:[142]
  164. 1153 [139]jj[167][153]kw$:[142]
  165. 1199 [153]hj$:[142]
  166. 1200 [139]jj[178]1[167]r[178]4:[141]8000:[142]
  167. 1201 [139]h[178]1[175]g[178]14[175]a(6)[178]1[167]r[178]7:[137]8000
  168. 1202 [139]h[178]1[175]g[178]14[167][153]"(NULL)ie klognnen die left$exptte nicht betreten,":zl[178]1
  169. 1203 [139]zl[167][153]"da (NULL)ie keinen (NULL)chlexpssel zum (NULL)ffnen der  (NULL)expr haben!":[142]
  170. 1205 [139]jj[167][153]kw$:[142]
  171. 1249 [153]hj$:[142]
  172. 1250 [139]jj[178]3[175]a(2)[178]1[167][153]"str$ie valingeborenen lassen (NULL)ie nicht!":[142]
  173. 1251 [139]jj[178]3[167]r[178]4:[137]8000
  174. 1252 [139]h[178]15[175]g[178]4[167][153]"str$as schmeckt ihnen ! (NULL)um str$ank bekommen":zl[178]1
  175. 1253 [139]zl[167][153]"(NULL)ie einen (NULL)chlexpssel !":a(2)[178]0:a(6)[178]1:[142]
  176. 1254 [139]h[178]15[175]g[178]h[167][153]"(NULL)owas mloggen str$right$val doch nicht !":[142]
  177. 1255 [139]h[178]15[167][153]"str$as wollen sie nicht !":[142]
  178. 1256 [139]jj[167][153]kw$:[142]
  179. 1259 [153]hj$:[142]
  180. 1300 [139]h[178]2[175]g[178]17[175]a(8)[178]0[167][153]ok$:a(8)[178]1:[142]
  181. 1301 [139]h[178]2[175]g[178]17[167][153]sh$:[142]
  182. 1303 [139]h[178]2[167][153]nn$:[142]
  183. 1305 [139]jj[167][153]kw$:[142]
  184. 1307 [139]h[178]16[175]g[178]14[167][153]"peeklocos wie ???????????":[142]
  185. 1308 [139]h[178]16[175]g[179][177]0[167][153]"str$as kann nicht fliegen !":[142]
  186. 1309 [139]h[178]16[167][153]"(NULL)ie klognnen nicht fliegen !":[142]
  187. 1311 [139]h[178]5[175]g[178]16[167][153]"str$ahinter ist ein (NULL)nopf !":qo[178]1:[142]
  188. 1312 [139]h[178]5[175]g[178]18[167][153]"valin schlogner (NULL)isch !":[142]
  189. 1313 [139]h[178]17[175]g[178]19[175]qo[178]0[167][153]"(NULL)ie haben den (NULL)nopf noch nicht";:zl[178]1
  190. 1314 [139]zl[167][153]" gefunden":[142]
  191. 1316 [139]h[178]17[175]g[178]19[167][141]6000:r[178]8:[141]8000:[142]
  192. 1349 [153]hj$:[142]
  193. 1350 [139]jj[178]1[167]9020
  194. 1351 [139]jj[178]2[167]r[178]9:[141]8000:[142]
  195. 1352 [139]jj[167][153]kw$:[142]
  196. 1369 [153]hj$:[142]
  197. 1400 [139]jj[178]1[167]r[178]8:[141]8000:[142]
  198. 1401 [139]jj[178]4[167]9025
  199. 1402 [139]jj[178]3[167][141]6010:r[178]10:[141]8000:[142]
  200. 1403 [139]jj[167][153]kw$:[142]
  201. 1404 [139]h[178]15[167][153]"(NULL)iemand will str$atn(NULL) !":[142]
  202. 1405 [139]h[178]2[167][153]"(NULL)ichts da !":[142]
  203. 1406 [153]hj$:[142]
  204. 1450 [139]h[178]15[175]g[178]20[167][141]6020:r[178]11:[141]8000:a(9)[178]0:[142]
  205. 1451 [153]""[199](34)"(NULL)ir brauchen eine peekatterie!"[199](34):[142]
  206. 1460 [139]h[179][177]4[167][153]""[199](34)"(NULL)right$val(NULL)(NULL)"[199](34)" macht der (NULL)atellit !":[142]
  207. 1461 [153]"loadstr$urch ihren left$ilferuf hlogrte (NULL)ie eine
  208. 1462 print"[194]odenstation. [211]ie werden vom [210]aumschiff
  209. 1463 [153]"'valntensteicos' abgeholt und sind jetzt
  210. 1464 print"wieder auf der [197]rde !":gosub6100:r=12:gosub8000:return
  211. 1500 ifh=2andg=handa(1)=0thena(1)=1:printok$:return
  212. 1501 ifh=2andg=hthenprintsh$:return
  213. 1502 ifjjthenprintkw$:return
  214. 1503 ifh=2thenprintnn$:return
  215. 1504 ifh=21andg=2anda(1)=1then9027
  216. 1506 ifh=24anda(8)=0thenprint"[211]ie haben kein [210]uder !":return
  217. 1508 ifh=24thengosub6030:re=1:r=13:gosub8000:return
  218. 1539 printhj$:return
  219. 1550 ifjj=2then9030
  220. 1551 ifjj=3thenr=14:gosub8000:return
  221. 1552 ifjj=4thenr=15:gosub8000:return
  222. 1553 ifjjthenprintkw$:return
  223. 1559 printhj$:return
  224. 1560 ifjj=4thenr=13:gosub8000:return
  225. 1561 ifh=15andg=17anda(8)=1thenprint"[211]ie bekommen [198]isch daf[189]r !":zl=1
  226. 1562 ifzlthena(10)=1:a(8)=0:return
  227. 1563 ifjjthenprintkw$:return
  228. 1564 ifh=5andg=17thenprint"[197]in [210]uder, das zum [194]oot passen w[189]rde !":return
  229. 1565 ifh=15andg=17thenprintsh$:return
  230. 1566 ifh=15thenprintnh$:return
  231. 1569 printhj$:return
  232. 1570 ifh=2andg=21then9040
  233. 1571 ifjj=3thenr=13:gosub8000:return
  234. 1572 ifh=5andg=21thenprint"[197]s l[187]chelt !":return
  235. 1573 ifh=2andg=14thenprint"[215]ie denn ???":return
  236. 1574 ifjj=1thenr=16:gosub8000:return
  237. 1575 ifjjthenprintkw$:return
  238. 1579 printhj$:return
  239. 1580 ifjj=2thenr=15:gosub8000:return
  240. 1581 ifh=21andg=2anda(1)=0thenprintsn$:return
  241. 1582 ifh=21andg=2thenr=17:gosub6040:gosub8000:return
  242. 1589 printhj$:return
  243. 1590 ifh=14thenr=18:gosub8000:return
  244. 1599 printhj$:return
  245. 1600 wf=wf+1:ifwf=5then9050
  246. 1601 ifh=15andg=24anda(10)=0thenprintsn$:return
  247. 1602 ifh=15andg=24thenr=19:a(10)=0:gosub6050:gosub8000:return
  248. 1603 ifh=5andg=23thenprint"[211]ie haben [200][213][206][199][197][210] !!":return
  249. 1608 ifjjthenprintkw$:return
  250. 1609 printhj$:return
  251. 1650 ifjj=3then9055
  252. 1651 ifjj=4then9060
  253. 1652 ifjj=1thenr=20:gosub8000:return
  254. 1659 printhj$:return
  255. 1670 ifh=26andg=11thenr=21:gosub8000:return
  256. 1679 print"[197]s ist dazu zu dunkel !":return
  257. 1680 ifjj=2thenr=19:gosub8000:print"[196]as [211]treichholz ist ausgegangen !":return
  258. 1681 ifh=17andg=25then9065
  259. 1682 ifg=19thenprint"[200]ier gibt es keinen [203]nopf !":return
  260. 1683 ifh=5andg=26thenprint"[196]a ist ein [200]ebel !":return
  261. 1684 ifjj=4thenprint"[196]a ist doch die [206]iesche !!":return
  262. 1685 ifh=27andg=25andtu=0thenprint"[196]ie [212][189]r springt auf !":tu=1:return
  263. 1686 ifh=27andg=25thenprintsh$:return
  264. 1687 ifjj=3andtu=0thenprint"[196]ie [212][189]r ist leider noch zu !":return
  265. 1688 ifjj=3thenr=22:gosub8000:return
  266. 1699 printhj$:return
  267. 1700 ifh=19andg=15thena(7)=0:print"[211]chmatz ! [211]chmeckt toll !":gosub6100:zl=1
  268. 1701 ifzlthenr=23:gosub8000:return
  269. 1702 ifjj=4thenr=21:gosub8000:return
  270. 1703 ifjjthenprintkw$:return
  271. 1704 ifh=19thenprint"[196]as war 'umme' ! [197]s schmeckt 'grei[190]lich' !":return
  272. 1709 printhj$:return
  273. 1710 ifjj=1thenre=1:r=24:gosub8000:return
  274. 1711 ifjj=2thenr=25:re=1:gosub8000:return
  275. 1712 ifjjthenprintkw$:return
  276. 1719 printhj$:return
  277. 1720 ifjj=2thenr=23:gosub8000:return
  278. 1721 ifh=2andg=27anda(11)=0thena(11)=1:printok$:return
  279. 1722 ifh=2andg=27thenprintsh$:return
  280. 1723 ifjjthenprintkw$:return
  281. 1729 printhj$:return
  282. 1730 ifjj=1thenr=23:gosub8000:return
  283. 1731 ifjjthenprintkw$:return
  284. 1732 ifg=28andh=1thenprint"[200]offentlich haben [211]ie nichts vergessen!":zl=1
  285. 1733 ifzlthengosub6100:r=26:gosub8000:return
  286. 1739 printhj$:return
  287. 1740 ifjjthenprint"[211]ie k[188]nnen die [211]tatue nicht mehr verlas-sen !":return
  288. 1741 ifh=28andg=29anda(11)=1thenprint"[194][213][205][205] !!!!!!!!!":gosub6100:a(11)=0:zl=1
  289. 1742 ifzlthenr=27:gosub8000:return
  290. 1743 ifg=29andh=28thenprint"[211]ie haben keinen [211]prengstoff...":return
  291. 1749 printhj$:return
  292. 1750 ifjjthenprint"[211]ie k[188]nnen die [211]tatue nicht mehr verlas-sen !":return
  293. 1751 ifg=16andh=21then3000
  294. 1752 ifg=16andh=5thenprint"[194]itten [211]ie um [200]ilfe !":return
  295. 1759 printhj$:return
  296. 2000 print"[147]**** [201][206][214][197][206][212][213][210] ****[144]                      [198]olgendes haben [211]ie:
  297. 2001 [129]i[178]1[164]in:[139]a(i)[178]1[167][153]" - "i$(i)
  298. 2002 [130]:[142]
  299. 3000 [141]3001:[137]3100
  300. 3001 [141]950:[153]"load
  301. 3002 print"
  302. 3003 [153]"
  303. 3004 print"
  304. 3005 [153]"
  305. 3006 print"
  306. 3007 [153]"
  307. 3008 print"
  308. 3009 [153]"          verify       (NULL)(NULL)
  309. 3010 print"              [206][205][206]
  310. 3011 [153]"             (NULL) (NULL)
  311. 3012 print"             [205][206][158] [209][215]
  312. 3013 [153]"    verify         (NULL)sys (NULL)(NULL)(NULL)(NULL)
  313. 3014 print"     [205][194][206] [149]   [206] [158][209][215][215][215][209][215]        [158][213][195][201]
  314. 3015 [153]"     len(NULL)len  verify (NULL)sys (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)     sys  peek(NULL)syspeek
  315. 3016 print"     [206][194][205][159]   [215][149][166][166][166][166][166][166][166][166][166][166]  [194] [158]  [202][195][203]      [194]
  316. 3017 [153]"peek     peek   peek verifyspc(        spc(  peek    peek       peek
  317. 3018 print"[194]  [194]  [194]   [194] [149][166]        [166] [194][194]    [194]   [194]   [194][194]
  318. 3019 [153]"peek  peekpeek peek  peekpeekpeekverifyspc(  peek  peek verify spc( peekpeek peek  peek   peek peek peekpeek
  319. 3020 print"[194][194][194][194][194][194][194][194][194][194][194][194][149][166][166][166][194][194][149][166][194][149][166][166][166][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194]
  320. 3021 [153]"printtab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(":[142]
  321. 3100 a$(1)[178]"cont    step  (NULL)wait    (NULL)wait   (NULL)wait   step   (NULL)wait   step  (NULL)"
  322. 3101 a$(2)[178]"clr     wait       wait(NULL)(NULL)wait   wait     wait   wait    "
  323. 3102 a$(3)[178]"def       wait     wait (NULL)(NULL)wait  wait     wait   wait      "
  324. 3103 a$(4)[178]"sys     wait       wait  (NULL)(NULL)wait wait     wait   wait    "
  325. 3104 a$(5)[178]"for    (NULL)  waitstep   (NULL)   (NULL) wait   (NULL)   waitstep   (NULL)  waitstep
  326. 3105 a$(6)="    [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  327. 3106 fori=1to6:printa$(i):next
  328. 3110 x1$="    [194] ":t=0
  329. 3111 x2$="[150]$$$$[194][150]$"
  330. 3112 printx1$x2$:t=t+1:ift<150andpeek(198)=0then3112
  331. 3113 poke198,.:gosub3001:printx2$
  332. 3200 poke198,0:a$(1)="[154]   gratulation !! sie haben den schatz
  333. 3201 a$(2)[178]"   gefunden und das abenteuer geloest.
  334. 3202 a$(3)="   [156]die kiste enthielt $ 50.000.000 !!!
  335. 3203 a$(4)[178]"   nicht erschrecken: printsie bekommen die
  336. 3204 a$(5)="   haelfte (!) davon ! viel spass !!!!
  337. 3205 a$(6)[178]"sys    frefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  338. 3206 [129]i[178]1[164]6:[153]a$(i):[130]
  339. 3210 [153]"druecken sie bitte die f1wait taste !!
  340. 3211 getre$:ifre$><"[133]"then3211
  341. 3213 gosub951:print"[147]":goto9000
  342. 3300 gosub950:print"[147]
  343. 3301 [153]"
  344. 3302 print"
  345. 3303 [153]"                    (NULL)(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenright$
  346. 3304 print"                   [206] [194]             [194]
  347. 3305 [153]"                  (NULL)  peek             peek
  348. 3306 print"[176][195][195][195][195][195][195][195][174]        [206] [164] [194] bis bald .. [194]
  349. 3307 [153]"peek       peek       (NULL)    peek             peek
  350. 3308 print"[194][213][195][201] [213][195][201][171][195][195][195][174]  [206]  [163][163][163][194]             [194]
  351. 3309 [153]"peekpeeklenpeek peek(NULL)peekpeek (NULL)(NULL)abs <  to totopeek *********** peek
  352. 3310 print"[194][202][178][203][209][202][178][203][171][195][195][195][189]  [205]     [194]             [194]
  353. 3311 [153]"peek tab(tab(tab(tab(tab( peek       (NULL) tototopeek             peek
  354. 3312 print"[179]   [209]   [194]        [205]   [194] vor ihrem   [194]
  355. 3313 [153]"peek(NULL)lenlenlenlenlenright$peek         (NULL) tab(peek    computer peek
  356. 3314 print"[202][203]     [202][203]          [205] [194]             [194]
  357. 3315 [153]"                    (NULL)peek             peek
  358. 3316 print"                     [202][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
  359. 3317 [153]"                    (NULL)right$(NULL)right$(NULL)right$(NULL)right$(NULL)right$(NULL)right$(NULL)right$(NULL)right$
  360. 3318 print"                     [213][201][213][201][213][201][213][201][213][201][213][201][213][201]
  361. 3319 [153]"                    (NULL)right$(NULL)right$(NULL)right$(NULL)right$(NULL)right$(NULL)right$(NULL)right$(NULL)right$
  362. 3320 print"                     [213][201][213][201][213][201][213][201][213][201][213][201][213][201]
  363. 3327 a$(1)[178]"peek(NULL)
  364. 3328 a$(2)="[206][195]
  365. 3329 a$(3)[178]"len(NULL)
  366. 3330 a$(4)="[205][194]
  367. 3331 [129]i[178]1[164]4:[153]""a$(i):[129]ii[178]0[164]50:[130]ii,i:[137]3331
  368. 5000 [153]"str$er chr$eruch im peekus lrndcost berechtigte (NULL)wei-
  369. 5001 print"[145]fel in [201]hnen aufkommen, ob in diesem
  370. 5002 [153]"(NULL)eil der (NULL)elt schon str$esinfektionsmittel
  371. 5003 print"bekannt sind.....":return
  372. 6000 print"[147][144][202]etzt passiert etwas [211]eltsames: [196]ie
  373. 6001 [153]"left$exptte erhebt sich vom peekoden, es gibt ei-
  374. 6002 print"[145]nen lauten [203]nall und die [200][189]tte beginnt
  375. 6003 [153]"zu - schweben !!!!":[153]"(NULL)ie fliegt expber einen anderen peekerg,
  376. 6004 print"dann [189]ber [201]talien, [189]ber das [205]eer und
  377. 6005 [153]"expber atnfrika nach (NULL)expdamerika. str$ort lan-
  378. 6006 print"det sie etwas unsanft auf einer [215]iese.
  379. 6007 [141]6100:[142]
  380. 6010 [153]"loadstop(NULL)ie sitzen jetzt vorn im atnutobus. (NULL)ie
  381. 6011 print"hatten zwar keine [203]arte, aber der [198]ah-
  382. 6012 [153]"rer hat sich mit der (NULL)eilbahnkarte zu-":a(3)[178]0
  383. 6013 [153]"friedengegeben, die jetzt natexprlich weg
  384. 6014 print"ist.":gosub5000:print"[193]ber da bleibt der [194]us stehen. [197]r will
  385. 6015 [153]"einfach nicht mehr. mid$a, so eine (NULL)anne
  386. 6016 print"ist schon [187]rgerlich, vor allem, wenn manes eilig hat...":goto6100
  387. 6020 print"[147][144][202]etzt f[187]hrt der [194]us weiter und bringt
  388. 6021 [153]"(NULL)ie nach (NULL)ew (NULL)ork. str$ort besuchen sie das
  389. 6022 print"[145][215]orld-[212]rade-[195]enter. [211]ie fahren mit dem
  390. 6023 [153]"atnufzug auf das str$ach. str$er hat jedoch ei-
  391. 6024 print"nen solchen [196]ruck, da[190] er in den [215]elt-
  392. 6025 [153]"raum geschleudert wird. ((NULL)oll ja vorkom-
  393. 6026 print"[145]men...) [211]ie sind dabei!":gosub6100:return
  394. 6030 print"[147][144][211]ie haben [199]l[189]ck gehabt ! [211]ie sind dem
  395. 6031 [153]"(NULL)turm ganz knapp entkommen und an (NULL)and
  396. 6032 print"getrieben worden.":gosub6100:return
  397. 6040 print"[147][144][196]a schau her ! [201]n der [196]ose war ein auf-
  398. 6041 [153]"blasbares chr$ummiboot ! (NULL)oller ascreude bla-";
  399. 6042 [153]"sen (NULL)ie es auf, legen es in den asclucos und
  400. 6043 print"[145]besteigen es.":print"[196]och die [196]ose haben sie am [213]fer ";
  401. 6044 print"verges- sen ...":a(1)=0:gosub6100:return
  402. 6050 print"[147][144][196]ie [196]elphine machen sich [189]ber den [198]isch
  403. 6051 [153]"her. (NULL)um str$ank tragen sie (NULL)ie auf eine
  404. 6052 print"sch[188]ne gr[189]ne [215]iese...":goto6100
  405. 6100 poke198,0:print"              >>[210][197][212][213][210][206][146]<<
  406. 6101 [161]re$:[139]re$[177][179]cr$[167]6101
  407. 6102 [142]
  408. 7000 gh[178]gh[170]1:[139]gh[177]5[167]gh[178]5:[153]kq$:[142]
  409. 7001 [153]"poke";:[145]r[141]7010,7999,7015,7023,7005,7006,7007,7008,7012,7020,7020
  410. 7002 [139]r[179]12[167][142]
  411. 7003 ew[178]r[171]11:[145]ew[141]7030,7040,7045,7050,7060,7015,7055,7065,7070,7075,7080
  412. 7004 [137]7081
  413. 7005 [153]"(NULL)ersuchen (NULL)ie, in die left$exptte zu kommen !":[142]
  414. 7006 [153]"str$ie armen (NULL)enschen werden halt left$unger   haben !":[142]
  415. 7007 [153]"str$ie (NULL)iste birgt das ascluggeheimnis !":[142]
  416. 7008 [153]"str$enken sie daran, dacos es im (NULL)ald blogse
  417. 7009 print"[212]iere gibt ! [213]nd: [214]iel [199]l[189]ck !":return
  418. 7010 print"[211]ehen [211]ie auf den [194]oden !":return
  419. 7012 print"[197]in [193]utobus ist t[188]dlich !":return
  420. 7015 print"[193]bwarten und [212]ee trinken !":return
  421. 7020 printdu$:gh=gh-1:return
  422. 7023 print"[208]assen [211]ie auf, wo [211]ie hintapsen ! [214]er-
  423. 7024 [153]"gessen (NULL)ie nicht: (NULL)ir sind hier auf ei- nem peekerg !":[142]
  424. 7030 [153]"(NULL)assen (NULL)ie auf, was (NULL)ie mit der str$ose ma-chen !":[142]
  425. 7040 [153]"chr$ehen (NULL)ie nicht dahin, wo (NULL)ie hergekom- men sind !":[142]
  426. 7045 [153]"valin kleiner (NULL)ausch kann nicht schaden !":[142]
  427. 7050 [153]"(NULL)assen (NULL)ie auf, was (NULL)ie tun ! vals droht  chr$efahr !!":[142]
  428. 7055 [153]"(NULL)as fressen str$elphine denn ????":[142]
  429. 7060 [153]"(NULL)pocks str$ose dexprfte jetzt nexptzlich sein.
  430. 7061 print"[211]ie enth[187]lt diesmal nichts [199]ef[187]hr-      liches !":return
  431. 7065 print"[193][195][200][212][213][206][199]: [200]ier besteht wieder eine [205][188]g
  432. 7066 [153]"lichkeit, zu sterben ! (NULL)assen (NULL)ie also
  433. 7067 print"auf, wo [211]ie hingehen !":return
  434. 7070 print"[205]achen [211]ie das [218][189]ndholz an !":return
  435. 7075 print"[214]ersuchen [211]ie, die [212][189]re zu [188]ffnen !
  436. 7076 [153]"str$och (NULL)orsicht: (NULL)enn (NULL)ie das falsch tun,
  437. 7077 print"st[189]rzt der [212]unnel ein...":return
  438. 7080 printdu$:gh=gh-1:return
  439. 7081 ifr<23thenreturn
  440. 7082 ew=r-22:onewgosub7083,7084,7085,7086,7088:return
  441. 7083 print"[203]eine [211]orge, es droht keine [199]efahr !":return
  442. 7084 print"[196]er [194]aum ist unwichtig !":return
  443. 7085 print"[214]ersuchen [211]ie, zur [211]tatue zu kommen !":return
  444. 7086 print"[211]prengen sie den [194]eton, falls [211]ie das
  445. 7087 [153]"klognnen !":[142]
  446. 7088 [153]"right$n der (NULL)iste ist der (NULL)chatz !":[142]
  447. 7999 [153]"(NULL)enn (NULL)ie chr$eld haben, kann eine (NULL)arte    praktisch sein !":[142]
  448. 8000 [153]"loadverify";:[145]r[141]8010,8028,8047,8006,8009,8014,8017,8020,8030,8040,8035
  449. 8001 [139]r[179]12[167][141]60:[142]
  450. 8002 tr[178]r[171]11:[145]tr[141]8025,8041,8045,8050,8060,8055,8057,8065,8070,8075,8080
  451. 8003 [139]r[179]23[167][141]60:[142]
  452. 8004 tr[178]r[171]22:[145]tr[141]8085,8087,8090,8100,8110
  453. 8005 [141]60:[142]
  454. 8006 [153]"(NULL)ie sind oben angekommen. (NULL)ege fexphren
  455. 8007 print"nach [215]esten, [207]sten und [211][189]den. [193]chtung:
  456. 8008 [153]"str$er peekerg frndllt an manchen (NULL)tellen steil ab !":[142]
  457. 8009 [153]"(NULL)un stehen (NULL)ie vor einer komischen left$expt- te aus (NULL)lastik.":[142]
  458. 8010 [153]"(NULL)ie stehen vor einem hohen peekerg. (NULL)ben
  459. 8011 print"ist ein [196]orf. [197]ine [188]ffentliche [211]eil-
  460. 8012 [153]"bahn fexphrt hinauf. right$m (NULL)sten kann man
  461. 8013 print"[203]arten daf[189]r kaufen.":return
  462. 8014 print"[211]ie sind [189]ber einen versteckten [208]fad in
  463. 8015 [153]"ein valingeborenendorf gekommen. str$ie peeke-
  464. 8016 print"wohner wollen etwas von [201]hnen !":return
  465. 8017 print"[211]ie sind jetzt in der [200][189]tte. [211]ie ist
  466. 8018 [153]"sehr sprndrlich eingerichtet, nur ein
  467. 8019 print"[212]isch, eine [203]iste und ein [210]uder.":return
  468. 8020 print"[211]ie sind auf einer kleinen [215]iese in-
  469. 8021 [153]"mitten eines (NULL)aldes. valin (NULL)fad geht nach
  470. 8022 print"[206]orden in eine [200][188]hle und s[189]dlich aus
  471. 8023 [153]"dem (NULL)ald heraus. str$ie left$exptte ist explo-
  472. 8024 print"diert !":return
  473. 8025 print"[211]ie sind im sibirischen [205]eer auf einer
  474. 8026 [153]"riesigen valisscholle gelandet. (NULL)eben
  475. 8027 print"[201]hnen liegt die [196]ose, die [211]ie [205]r. [211]puck":goto8036
  476. 8028 print"[211]ie stehen vor dem [203]artenverkaufshaus."
  477. 8029 print"[201]m [211][189]den geht's zur [211]eilbahn.":return
  478. 8030 print"[211]ie stehen auf einer [211]tra[190]e, auf der
  479. 8031 [153]"atnutobusse fahren. valiner im (NULL)esten und
  480. 8032 print"einer im [207]sten. [215]elchen nehmen [211]ie ?":return
  481. 8035 print"[211]ie h[187]ngen an einem [211]atelliten.":return
  482. 8036 print"geklaut haben. [196]er [200]immel wird immer
  483. 8037 [153]"dunkler, ein (NULL)turm zieht herauf.":[142]
  484. 8040 [153]"str$er ascahrer steht haareraufend neben dem peekus.":[142]
  485. 8041 [153]"(NULL)ie stehen frierend am (NULL)trand. right$m (NULL)orden";
  486. 8042 [153]"ist eine ascelswand, im (NULL)expden das (NULL)eer,
  487. 8043 print"nach [215]esten und [207]sten gehen [215]ege ab.    [214]iel [197]rfolg !":return
  488. 8045 print"[211]ie sind in einem [198]ischerdorf und sehen
  489. 8046 [153]"ein peekoot, bei dem ein (NULL)uder fehlt...":[142]
  490. 8047 [153]"(NULL)ie stehen jetzt in einer den peekerg her-
  491. 8048 print"aufschwebenden [203]abine und sind damit be-";
  492. 8049 print"sch[187]ftigt, [193]utogramme zu verteilen !":return
  493. 8050 print"[211]ie stehen auf einem kleinen [200][189]gel. [206]e-
  494. 8051 [153]"ben right$hnen liegt ein chr$ebicos ! right$m (NULL)orden   ist ein asclucos.":[142]
  495. 8055 [153]"(NULL)ie sitzen im peekoot und treiben auf dem
  496. 8056 print"[215]asser.":return
  497. 8057 print"[207][200] [206][197][201][206] ! [211]ie treiben auf einen [215]asser-
  498. 8058 [153]"fall zu ! (NULL)atnlenleft$val(NULL) (NULL)right$val (NULL)lenleft$(NULL)val(NULL)(NULL) val(NULL)(NULL)atn(NULL) !!!
  499. 8059 print"[214]ielleicht k[188]nnen die [196]elphine helfen,":goto8062
  500. 8060 print"[214]or [201]hnen flie[190]t ruhig der [198]lu[190]. [196]ie
  501. 8061 [153]"(NULL)trlogmung geht nach (NULL)esten.":[142]
  502. 8062 [153]"die vor right$hnen im (NULL)asser schwimmen ?!":[142]
  503. 8065 [153]"(NULL)ie stehen auf einer (NULL)iese. atnch, ist
  504. 8066 print"das [199]ras sch[188]n gr[189]n... [215]ege f[189]hren nach
  505. 8067 [153]"(NULL)esten, nach (NULL)sten und (NULL)orden !":[142]
  506. 8070 [153]"(NULL)ie stehen in totaler str$unkelheit !":[142]
  507. 8075 [153]"(NULL)ie stehen in einem (NULL)unnel. right$m (NULL)cheine
  508. 8076 print"des [211]treichholzes erkennt man im [215]esten
  509. 8077 [153]"eine kleine (NULL)expr, logstlich eine (NULL)iesche
  510. 8078 print"und im [211][189]den einen [193]usgang.":return
  511. 8080 print"[202]etzt stehen [211]ie in einer [197]isw[189]ste. [211]ie
  512. 8081 [153]"haben entsetzlichen left$unger !":[142]
  513. 8085 [153]"mid$etzt stehen (NULL)ie in einer valiswexpste. (NULL)e-
  514. 8086 print"ge f[189]hren nach [206]orden und [211][189]den.":return
  515. 8087 print"[202]etzt stehen [211]ie vor einem riesigen
  516. 8088 [153]"peekaum. ";:[139]a(11)[178]1[167][153]:[142]
  517. 8089 [153]"atnuf dem peekoden liegt str$ynamit !":[142]
  518. 8090 [153]"(NULL)ie stehen vor einer riesigen (NULL)tatue aus";
  519. 8091 [153]"(NULL)tein. (NULL)ie steht auf einem mrndchtigen
  520. 8092 print"[211]ockel, eine breite [212]reppe f[189]hrt hin-
  521. 8093 [153]"auf.":[142]
  522. 8100 [153]"(NULL)ie sind jetzt in der (NULL)tatue. (NULL)omisch,
  523. 8101 print"auf dem [194]oden w[187]chst [199]ras ?! [201]n der
  524. 8102 [153]"(NULL)itte des (NULL)aumes steht ein riesiger peeke-
  525. 8103 print"tonkasten !":return
  526. 8110 print"[213]nter dem [194]eton kommt eine [203]iste zum    [214]orschein !":return
  527. 9000 print"     [196]as [193]benteuer ist zu [197]nde !
  528. 9001 [153]"   (NULL)ie waren"[181](ti[173]3600)"(NULL)in. "[201](ti$,2)" (NULL)ek. damit be-"
  529. 9002 [153][166]12)"schrndftigt !"
  530. 9003 [153]"    (NULL)ie haben"fa"(NULL)expge gemacht.
  531. 9005 print"     **** [144][206][207][195][200] ein [211]piel ? ****
  532. 9006 [161]re$:[139]re$[178]"n"[167][160]1:[137]3300
  533. 9007 [139]re$[179][177]"j"[175]re$[179][177]"y"[167]9006
  534. 9008 [138]
  535. 9010 [153]"load(NULL)ut mir leid, im (NULL)esten war ein sehr
  536. 9011 print"tiefer [193]bgrund, und [211]ie sind nat[189]rlich  abgest[189]rzt !":goto9000
  537. 9020 print"[147][212]ut mir leid, im [206]orden in der [200][188]hle
  538. 9021 [153]"war ein komisches (NULL)ieh (ein peekrndr ?),
  539. 9022 print"das [211]ie aufgefressen hat. [211]ie schmecktensehr gut !":goto9000
  540. 9025 print"[147][196]as nenne ich [208]ech ! [196]er [194]us hatte einen";
  541. 9026 print"[213]nfall - und [211]ie sind ein [207]pfer !":goto9000
  542. 9027 print"[147][212]ut mir leid, diese [194][189]chse war eine von
  543. 9028 [153]"(NULL)r. (NULL)pucks valxperimentiersachen. left$ochex-
  544. 9029 print"plosiver [211]prengstoff war darin !":goto9000
  545. 9030 print"[147][196]as h[187]tten sie niemals tun sollen ! [196]as
  546. 9031 [153]"(NULL)eer ist sehr kalt und tief und (NULL)ie
  547. 9032 print"k[188]nnen doch nicht schwimmen...":goto9000
  548. 9040 print"[147][196]as war ein schwerer [198]ehler ! [196]as [199]ebi[190]
  549. 9041 [153]"wird auf einmal lebendig und beicost !":[137]9000
  550. 9042 [153]"load(NULL)ech gehabt ! (NULL)ie klognnen nicht schwim-
  551. 9043 print"men, und ertrinken !":goto9000
  552. 9050 print"[147][211]ie haben zu lange gewartet und sind in
  553. 9051 [153]"den immerhin ca. 200 m. hohen (NULL)asserfall";
  554. 9052 [153]"gestexprzt. (NULL)ragischer (NULL)od!":[137]9000
  555. 9055 [153]"loadstop(NULL)ie sind in ein asclugzeug gestiegen, das
  556. 9056 print"[211]ie in den [215]ilden [215]esten bringen soll.":gosub6100
  557. 9057 print"[147][144][198]reuen [211]ie sich nicht zu fr[189]h !! [196]as warf[189]r 'umme' !":gosub6100
  558. 9058 print"[147][144][219]tsch ! [211]ie wurden von einem [194]anditen
  559. 9059 [153]"erschossen !":[137]9000
  560. 9060 [153]"loadstop(NULL)ie sind in ein asclugzeug gestiegen, das
  561. 9061 print"sie in den fernen [207]sten bringen soll.":gosub6100
  562. 9062 print"[147][144][198]reuen [211]ie sich nicht zu fr[189]h !! [196]as warnicht alles...":gosub6100
  563. 9063 print"[147][144][219]tsch ! [211]ie wurden von einem [198]akir er-
  564. 9064 [153]"mordet !":[137]9000
  565. 9065 [153]"loadstr$as war falsch ! (NULL)ie haben den left$ebel
  566. 9066 print"in der falschen [210]ichtung bet[187]tigt.
  567. 9067 [153]"str$er (NULL)unnel ist eingestexprzt, (NULL)ie sind
  568. 9068 print"unter den [212]r[189]mmern begraben !":goto9000
  569. 9100 fori=1tolen(a$):poke630+i,asc(mid$(a$,i,1)):next
  570. 9101 poke198,i-1
  571. 9102 return
  572. 9200 datanimm geld,e,kauf kart,s,wart,e,gebe schoko,w,s,gehe huette,nimm rud
  573. 9201 dataschau kis,dru kno,s,w,gebe batt,?,nimm dos,rud,w,gebe rud
  574. 9202 datae,e,n,oeff dos,war,gebe fisch,n,rei zue,zie heb,w,iss brot,n,nimm dyn
  575. 9203 datas,s,gehe treppe,spre bet,oeff kis
  576. 10000 gosub11008:gosub11006:gosub11001
  577. 10001 print"  [168][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][170]
  578. 10003 [153]"  get                                get
  579. 10004 print"  [161]           [144][193]   [213]   [198]            [161]
  580. 10005 [153]"  get                                get
  581. 10006 print"  [161]           [144][196]   [197]   [210]            [161]
  582. 10007 [153]"  get                                get
  583. 10008 print"  [161]         [144][211]  [213]  [195]  [200]  [197]          [161]
  584. 10010 [153]"  get                                get
  585. 10011 print"  [162][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][164]
  586. 10013 [141]11003:[153]" valin atndventure von stop(NULL)ikolaus left$eusler":[141]11000
  587. 10014 [153]" (NULL)ov.84, (NULL)rndrz 90    (c) (NULL)(NULL)(NULL) 1984-1990
  588. 10015 gosub11009:poke53265,19:print"      [144]    [193]nleitung ?  ([202]/[206])
  589. 10016 [161]re$:[139]re$[178]"n"[167][151]53265,27:[142]
  590. 10017 [139]re$[177][179]"j"[167]10016
  591. 10018 [151]53265,27:[153]"loadatnnleitung:
  592. 10019 print"[144][215]enn [211]ie nicht mehr weiterwissen, geben [211]ie '[200]ilfe' oder '?' ein !
  593. 10020 [153]"peekitte verwenden (NULL)ie bei allen valingaben  nur (NULL)leinbuchstaben !
  594. 10021 print"[196]ie [211]tory: [211]ie sollen einen verborgenen
  595. 10022 [153]"(NULL)chatz finden. str$azu geben (NULL)ie deutsche  peekefehle ein.
  596. 10023 print"[194]eispiel: nimm die karten
  597. 10024 [153]"(NULL)rrndpositionen, atnrtikel usw. klognnen weg- gelassen werden.
  598. 10025 print"[214]or der [194]efehlseingabe ist ein etwas
  599. 10026 [153]"seltsames chr$urgeln zu vernehmen:":[141]6100:[141]600
  600. 10027 [153]"ononstopstr$ann geben (NULL)ie den peekefehl ein und
  601. 10028 print"dr[189]cken [210][197][212][213][210][206][146]. [215]enn der [195]omputer die
  602. 10029 [153]"valingabe nicht versteht, ertlognt dieses   (NULL)ignal:":[141]6100:[141]603
  603. 10034 [153]"loadstopvals reicht gewloghnlich, die ersten drei
  604. 10035 print"[194]uchstaben der [215][188]rter einzugeben. [194]eim
  605. 10036 [153]"right$nventur-peekefehl reichen sogar die peekuch-
  606. 10037 print"staben 'in'.
  607. 10041 [153]"valine weitere valigenheit hat dieses (NULL)ro-
  608. 10042 print"gramm: es kann sein, da[190] ein [194]efehl in
  609. 10043 [153]"einer (NULL)zene nichts bewirkt, in einer an-
  610. 10044 print"[145]deren jedoch n[188]tig ist.
  611. 10045 [153]"str$ie peekefehle 'ton an' und 'ton aus'
  612. 10046 print"schalten den [211]oundeffekt ein und aus.
  613. 10048 [153]"str$ie left$andlung ist etwas unrealistisch,
  614. 10049 print"aber das ist eigentlich der [215]itz
  615. 10050 [153]"des (NULL)pieles.
  616. 10051 print"[197]in durchschnittlicher [211]pieler wird ei-
  617. 10052 [153]"nige (NULL)eit brauchen, um hinter die (NULL)logsung
  618. 10053 print"[145]zu kommen und den [211]chatz zu finden.
  619. 10054 [153]"str$en peekefehl 'hilfe' dexprfen (NULL)ie maximal 5
  620. 10055 print"mal benutzen. [215]ir raten [201]hnen jedoch,
  621. 10056 [153]"diese left$ilfe expberhaupt nicht in atnnspruch
  622. 10057 print"zu nehmen, da das [211]piel sonst m[188]gli-
  623. 10058 [153]"cherweise zu schnell langweilig wird.on":[141]6100
  624. 10059 [153]"loadstop(NULL)um (NULL)aufen geben (NULL)ie nur den ersten
  625. 10060 print"[194]uchstaben der [200]immelsrichtung ein, bei
  626. 10061 [153]"'(NULL)sten' geht auch die englische atnbkexpr-
  627. 10062 print"zung 'e'. [193]chtung: kein 'gehe' davor!
  628. 10063 [153]"(NULL)ichtig ist auch, den aktuellen (NULL)piel-
  629. 10064 print"stand vor jeder schwierigen [211]ituation
  630. 10065 [153]"auf ascloppy zu speichern. left$aben (NULL)ie ei-
  631. 10066 print"nen [198]ehler gemacht, so brauchen [211]ie nur
  632. 10067 [153]"'loa' (atnbk. fexpr 'load') einzugeben, und
  633. 10068 print"die alte [211]ituation ist wieder da. [213]m
  634. 10069 [153]"eine (NULL)zene zu speichern, geben (NULL)ie
  635. 10070 print"die [193]bk[189]rzung f[189]r 'save' ein: 'sav'.
  636. 10071 [153]"chr$espeichert wird die (NULL)ummer der (NULL)zene,
  637. 10072 print"welche [199]egenst[187]nde [211]ie bei sich tragen,
  638. 10073 [153]"wie viele left$ilfen (NULL)ie noch zur ver-
  639. 10074 print"f[189]gung haben, die [218]ahl der bisherigen
  640. 10075 [153]"(NULL)expge und (NULL)hnliches.on":[141]6100
  641. 10076 [153]"loadstopvals besteht auch die (NULL)logglichkeit des sog.
  642. 10077 print"[145]'autoplay'. [196]azu geben [211]ie direkt nach
  643. 10078 [153]"dem (NULL)tart des (NULL)pieles den peekefehl 'auto-
  644. 10079 print"play' und das [195]odewort (siehe [193]nleitung)
  645. 10080 [153]"onein. (NULL)enn (NULL)ie atnutoplay wrndhlen, gibt der
  646. 10081 print"[195]omputer automatisch die richtigen [194]e-
  647. 10082 [153]"fehle vor und verrrndt somit die (NULL)logsung.
  648. 10083 print"[193]lso lassen [211]ie besser die [198]inger davon.":gosub6100:poke198,0:return
  649. 11000 printtab(19)"[218]wengauerweg 18":printtab(19)"8000 [205][189]nchen 71":goto11010
  650. 11001 a$="  [146][206]  [211]  [211]  [144]     p r [187] s e n t i e r t :
  651. 11002 [129]i[178]1[164][195](a$):[153][202](a$,i,1);:[129]ii[178]0[164]20:[130]ii,i:[153]:[142]
  652. 11003 [129]ii[178]0[164]4:i1[178]200:i2[178]207:[141]11011:i2[178]200:i1[178]207:[141]11011
  653. 11004 [130]
  654. 11005 [151]53265,27:[151]53270,200:[142]
  655. 11006 [129]i[178]0[164]10:[151]53265,19:[129]ii[178]0[164]100:[130]:[151]53265,27:[129]ii[178]0[164]100
  656. 11007 [130]ii,i:[142]
  657. 11008 [153]"";:[129]i[178]0[164]39:[153]"sin";:[130]:[142]
  658. 11009 [153]" (NULL)ersion 3           valin (NULL)(NULL)(NULL)-(NULL)rogramm":[142]
  659. 11010 [153]" (NULL)nter beratender (NULL)itarbeit voncmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdstopstr$ieter (NULL)olfram":[142]
  660. 11011 [129]i[178]i1[164]i2[169][180](i2[171]i1)[173]3:[151]53270,i:[130]:[142]
  661.